library(raster)
source('https://raw.githubusercontent.com/oharac/src/master/R/common.R')

source(here('common_fxns.R'))

library(animation)

reload <- FALSE

1 Summary

Create a species richness map for threatened marine species.

Combine taxa-level impact maps to create maps of number of threatened species impacted per cell, per year.

Plot maps as animated rasters, both by absolute numbers of species impacted in a location and by proportion of species (impact counts / species richness).

This is all done at the level of cumulative impact category, not individual stressors.

2 Methods

2.1 Create species richness map for this assessment

Set up the dataframe of species to include. By taxon, load all species range maps, smash down to taxon-level species richness; then combine these for a total species richness.

Note that a priority sum map necessarily includes only species that are impacted; a species with no impacts, i.e. 0% of its range impacted, receives a priority of zero.

Are the two substantially different? This shows ratio calculated for each cell: \[\frac{\sum_{spp} \text{priority}}{\text{spp richness}}\] This is then normalized by dividing by the max value to get a range from 0-1.

Areas with high values represent concentrations of high priority species.

2.2 Setup for mapping across all taxa

For each impact category (including all):

gather all taxa-level map files into a raster stack
collapse the stack using calc(fun = sum, na.rm = TRUE)
animate over the years

2.3 Create impact map for all included spp, by stressor category

2.3.1 maps by count of threatened species impacted

2.3.2 maps by percent of threatened species impacted

2.3.3 maps by priority of threatened species impacted

These show impacts weighted by priority, divided by the total sum of spp priority present.

Map impacts for all impacted species

Compiled on Mon May 25 18:14:37 2020 by ohara